home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / ETC / AIM / !aim_macros_demosch < prev    next >
Encoding:
Text File  |  1990-09-08  |  4.1 KB  |  134 lines
  1. * Analysis of electronic scheme 
  2. * by Cellular Logic Operations 
  3. * Frans Groen
  4. *
  5. readf scheme,A
  6. @_corshad   * correct the image for shading
  7. * obtain from the corrected image
  8. * a binary image by thresholding
  9. thresh B,B,1,220    * threshold
  10. toff
  11. doff        * display off
  12. bcop 1,8    * copy the thresholded image
  13. bcop 1,6    * original in green
  14. inv 6       * after inversion
  15. *
  16. * separation of drawing and text
  17. *
  18. *
  19. * fill small holes
  20. bcop 8,7,b,b       * copy bitplane
  21. don
  22. erosion 1,8,4,0,b  * erode small holes away
  23. prop 511,8,7,8,0,b * propagate for what remains
  24. inv 8              * cleaned drawing in red
  25. don,4              * multi-bitplane display on
  26. bcopy 8,5,b,b      * save original in b5
  27. doff               * display off
  28. *
  29. * make skeleton
  30. skelet 511,8,1,b   * skeleton in b8
  31. don                * single bitplane display
  32. bcopy 8,4          * save skeleton in b4
  33. *
  34. * shave skeleton
  35. bcopy 8,7,b,b       * copy in b7
  36. -skelet 16,7,1,b    * remove strokes of length 16
  37. exor 8,7,7,b        * find strokes
  38. vertices 8,0,b      * vertices in bitplane 3
  39. dilation 1,8,8,0,b  * enlarge vertices
  40. propag 511,8,7,8,0,b * propagate vertices in strokes
  41. exor 4,8,8,b        * cleaned object in b8
  42. bcopy 8,4           * save in b4
  43. *
  44. * separate text based upon vertices in 
  45. * the skeleton with removed strokes
  46. * 
  47. bcopy 8,7            * copy for propagation mask
  48. vertices 8,0,b       * find vertices
  49. propag 511,8,7,8,0,b * propagate vertices in skeleton
  50. bcop 8,4,b,b         * save cleaned skeleton in b4
  51. propag 511,8,5,8,0,b * propagate skeleton in drawing
  52. doff                 * display off
  53. reset 7              * reset for display
  54. don,4                * multi-bitplane display 
  55. bcop 8,5             * save original in b5
  56. *doff                 * display off 
  57. *
  58. *analyse objects
  59. *capacitors : big objects
  60. bcop 5,6            * original in b8
  61. ero 4,6,4           * find capacitors
  62. prop 4,6,5,8,0,b    * propagate back
  63. *  capacitors in b6
  64. *resistors : objects enclosing small holes
  65. don,4
  66. inv 5,b             * invert
  67. bcop 5,7            * original in b7
  68. ero 5,7             * erode 5 times
  69. propag 511,7,5,8,0,b * find what remains
  70. exor 5,7,7,b        * find what disappears
  71. *  resistors in b7
  72. * opamps
  73. bcop 5,8
  74. erosion 7,8,8,0,b   * erode 7 times
  75. propag 511,8,5,8,0,b * find what remains
  76. exor 5,8,8,b        * and what disappears
  77. exor 7,8,8,b        * removes the resistors
  78. doff
  79. *  opamps in b8
  80. * finds location of components in scheme
  81. *   extend opamps
  82. dilation 2,8,6,0,b * extend opamps  
  83. bcopy 8,1,b,b      * save seed bitplane
  84. propag 3,8,4,6,0,b * propagate in skeleton
  85. or 1,8,8,b         * or seed bitplane
  86. bcopy 8,1,b,b      * opamps in b1
  87. * extend resistors
  88. dilation 2,7,6,0,b * extend resistors
  89. bcopy 7,2,b,b      * save seed bitplane
  90. propag 3,7,4,6,0,b * propagate in skeleton
  91. or 2,7,7,b         * or seed bitplane
  92. bcopy 7,2,b,b      * resistors in b2
  93. * extend capacitors
  94. bcopy 6,3,b,b      * save seed bitplane
  95. propag 3,6,4,6,0,b * propagate capacitors in skeleton
  96. or 3,6,6,b         * or seed bitplane
  97. don,4              * multi-bitplane display on
  98. bcopy 6,3,b,b      * capacitors in b3
  99. * determine endpoints and branchpoints
  100. * find scheme without components
  101. bcop 4,8         * get cleaned drawing (b4)
  102. inv 8            * invert
  103. or 1,8,8         * get rid of opamps
  104. or 2,8,8         * resistors
  105. or 3,8,8         * capacitors
  106. inv 8            * drawing without components
  107. bcopy 8,6        * copy in b6 for vertices
  108. bcopy 8,7        * copy in b7 for endpixels
  109. * find endpixels of the components
  110. endpix 7,0,b     * find endpixels
  111. dilation 2,7,6,0,b * extend endpixels
  112. * find vertices
  113. vertices 6,0,b
  114. dilation 2,6,6,0,b
  115. *
  116. * color assignment
  117. * lines    : grey    resistors  : blue
  118. * endpixels: yellow  capacitors : green
  119. * vertices : purple  opamps     : red
  120. *dilate lines because of low_res display
  121. dilation 1,8,6,0,b
  122. or 6,8,8
  123. or 7,8,8           * lines    : grey   876.....
  124. exor 8,6,6         * vertices : purple 87......
  125. exor 8,7,7         * endpixels: yellow 8.6.....
  126. * insert components
  127. or 1,8,8           * opamps   : red    8......1
  128. or 2,7,7           * resistors: blue   .7....2.
  129. or 3,6,6           * capacitors: green ..6..3.. 
  130. reset 5 b
  131. gdisp b            * grey value display shows color
  132. don,1              * set display mode to normal
  133. @_modfsch
  134.